Week 25: Birds, Ohhhh Canada

Week 25: Birds, Ohhhh Canada

bird_counts <- readr::read_csv("https://raw.githubusercontent.com/rfordatascience/tidytuesday/master/data/2019/2019-06-18/bird_counts.csv")

library(tidyverse)
library(gganimate)
library(ggthemr)

ggthemr('flat')

Year with How many counted, How many counted by Hour and Total Hours

p1<-bird_counts %>%
    ggplot(.,aes(year,how_many_counted,color=how_many_counted_by_hour,
                 label=species))+
          geom_point()+labs(color="Counted by Hour")+
          xlab("Year")+ylab("How Many Counted")+
          ggtitle("How many Counted vs Year")

plotly::ggplotly(p1)
p2<-bird_counts %>%
    ggplot(.,aes(year,total_hours,color=how_many_counted_by_hour,
                 label=species))+
          geom_point()+labs(color="Counted by Hour")+
          xlab("Year")+ylab("Total Hours")+
          ggtitle("Total Hours vs Year")

plotly::ggplotly(p2)

Related